VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BPedido"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bCliente"
Attribute VB_Ext_KEY = "Member1" ,"bCliente"
Attribute VB_Ext_KEY = "Member2" ,"bEstado"
Attribute VB_Ext_KEY = "Member3" ,"bUsuario"
Option Explicit

'local variable(s) to hold property value(s)
Private mvarbCompania As bCompania 'local copy
Private mvarnCodigo As Long 'local copy
Private mvarsSerDocumento As String 'local copy
Private mvarsNumDocumento As String 'local copy
Private mvarbTipoDocumento As BTipo 'local copy
Private mvarbUsuario As bUsuario     'local copy
Private mvarbEstado As bEstado   'local copy
Private mvardfecha As Date 'local copy
Private mvarnTotal As Double 'local copy
Private mvarnBasImponible As Double 'local copy
Private mvarnIgv As Double 'local copy
Private mvarsVoucher As String 'local copy
Private mvarnDescuento As Double 'local copy
Private mvarsObservacion As String 'local copy
Private mvarsCliente As String 'local copy
Private mvarnTipCambio As Double 'local copy
Private mvarLDetalle As Collection 'local copy
Private mvarnDiaTrabajo As Integer
Private mvarlPagos As Collection
Private mvarnTotPagado As Double
Private mvarnCambio As Double

Private Sub Class_Terminate()
    Set mvarlPagos = Nothing
End Sub


Friend Property Get lPagos() As Collection
    Set lPagos = mvarlPagos
End Property

Friend Property Set lPagos(lPagos As Collection)
    Set mvarlPagos = lPagos
End Property


Friend Property Let nTipCambio(ByVal vData As Double)
    mvarnTipCambio = vData
End Property

Friend Property Get nTipCambio() As Double
    nTipCambio = mvarnTipCambio
End Property

Friend Property Let sCliente(ByVal vData As String)
    mvarsCliente = vData
End Property

Friend Property Get sCliente() As String
    sCliente = mvarsCliente
End Property

Friend Property Let sObservacion(ByVal vData As String)
    mvarsObservacion = vData
End Property

Friend Property Get sObservacion() As String
    sObservacion = mvarsObservacion
End Property

Friend Property Let nDescuento(ByVal vData As Double)
    mvarnDescuento = vData
End Property

Friend Property Get nDescuento() As Double
    nDescuento = mvarnDescuento
End Property

Friend Property Let sVoucher(ByVal vData As String)
    mvarsVoucher = vData
End Property

Friend Property Get sVoucher() As String
    sVoucher = mvarsVoucher
End Property

Friend Property Let nIgv(ByVal vData As Double)
    mvarnIgv = vData
End Property

Friend Property Get nIgv() As Double
    nIgv = mvarnIgv
End Property

Friend Property Let nBasImponible(ByVal vData As Double)
    mvarnBasImponible = vData
End Property

Friend Property Get nBasImponible() As Double
    nBasImponible = mvarnBasImponible
End Property

Friend Property Let nTotal(ByVal vData As Double)
    mvarnTotal = vData
End Property

Friend Property Get nTotal() As Double
    nTotal = mvarnTotal
End Property

Friend Property Let dfecha(ByVal vData As Date)
    mvardfecha = vData
End Property

Friend Property Get dfecha() As Date
    dfecha = mvardfecha
End Property

Friend Property Set bEstado(ByVal vData As bEstado)
    Set mvarbEstado = vData
End Property

Friend Property Get bEstado() As bEstado
    Set bEstado = mvarbEstado
End Property

Friend Property Set bUsuario(ByVal vData As bUsuario)
    Set mvarbUsuario = vData
End Property

Friend Property Get bUsuario() As bUsuario
    Set bUsuario = mvarbUsuario
End Property

Friend Property Set bTipoDocumento(ByVal vData As BTipo)
    Set mvarbTipoDocumento = vData
End Property

Friend Property Get bTipoDocumento() As BTipo
    Set bTipoDocumento = mvarbTipoDocumento
End Property

Friend Property Let sNumDocumento(ByVal vData As String)
    mvarsNumDocumento = vData
End Property

Friend Property Get sNumDocumento() As String
    sNumDocumento = mvarsNumDocumento
End Property

Friend Property Let sSerDocumento(ByVal vData As String)
    mvarsSerDocumento = vData
End Property

Friend Property Get sSerDocumento() As String
    sSerDocumento = mvarsSerDocumento
End Property

Friend Property Let nCodigo(ByVal vData As Long)
    mvarnCodigo = vData
End Property

Friend Property Get nCodigo() As Long
    nCodigo = mvarnCodigo
End Property

Friend Property Set bCompania(ByVal vData As bCompania)
   Set mvarbCompania = vData
End Property

Friend Property Get bCompania() As bCompania
    Set bCompania = mvarbCompania
End Property

Friend Property Set lDetalle(ByVal vData As Collection)
   Set mvarLDetalle = vData
End Property

Friend Property Get lDetalle() As Collection
    Set lDetalle = mvarLDetalle
End Property

Friend Property Get nDiaTrabajo() As Integer
    nDiaTrabajo = mvarnDiaTrabajo
End Property

Friend Property Let nDiaTrabajo(ByVal nDiaTrabajo As Integer)
    mvarnDiaTrabajo = nDiaTrabajo
End Property

Public Property Get nTotPagado() As Double
    nTotPagado = mvarnTotPagado
End Property

Public Property Let nTotPagado(ByVal nTotPagado As Double)
    mvarnTotPagado = nTotPagado
End Property

Public Property Get nCambio() As Double
    nCambio = mvarnCambio
End Property

Public Property Let nCambio(ByVal nCambio As Double)
    mvarnCambio = nCambio
End Property

Private Sub Class_Initialize()
Set mvarbCompania = New bCompania
Set mvarbTipoDocumento = New BTipo
Set mvarbUsuario = New bUsuario
Set mvarbEstado = New bEstado
'Set mvarbPuntoVenta = New bPuntoVenta
Set mvarLDetalle = New Collection
Set mvarlPagos = New Collection
End Sub
